home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / HAM_RAD / PROPAGAT / 1004A.ZIP / LOSOBJ.BAS < prev    next >
BASIC Source File  |  1987-05-12  |  2KB  |  37 lines
  1. 10 REM LEO KRASKA
  2. 20 REM PROGRAM FOR RF II
  3. 30 REM 4/15/84 4/3 EARTH RADIUS V1.1
  4. 40 REM PRECISION 5:PRINT:PRINT:K=0
  5. 50 PRINT"PROGRAM FOR CALCULATING MAXIMUM HEIGHT OF AN OBJECT IN A LOS PATH"
  6. 55 PRINT:PRINT,"by Leo Kraska via k2uyh/wa2tif":PRINT
  7. 60 PRINT:INPUT"RATIO OF EFFECTIVE EARTH RADIUS TO TRUE EARTH RADIUS(.6-5).              FOR AVERAGE VALUE(4/3)HIT RETURN";K
  8. 70 IF K>5 OR K<.6 THEN K=1.3333
  9. 80 PRINT:INPUT"HEIGHT OF TRANSMITTING ANTENNA IN FEET";TA
  10. 90 PRINT:INPUT"HEIGHT OF RECIEVING ANTENNA IN FEET";RA
  11. 100 PRINT:INPUT"DISTANCE BETWEEN RECIEVER AND TRANSMITTING ANTENNAS IN MILES";LOSD
  12. 110 MD=(3*K*TA/2)^.5+(3*K*RA/2)^.5
  13. 120 IF MD<LOSD THEN PRINT :PRINT"DISTANCE BETWEEN ANTENNAS IS TO FAR, MAX. DISTANCE IN MILES IS";MD:GOTO 240
  14. 130 PRINT:INPUT"DISTANCE OF OBJECT TO TRANSMITTER ANTENNA IN MILES";DIS
  15. 140 PRINT:INPUT"HEIGHT OF OBJECT IN FEET";HI
  16. 150 SLOAP=(RA-TA)/LOSD
  17. 160 IF LOSD/2< DIS THEN DOS=LOSD-DIS ELSE DOS=DIS
  18. 170 O=(DIS*SLOAP+TA)-(2*DOS^2)/(3*K)
  19. 180 IF O<= HI THEN PRINT:PRINT"OBJECT BLOCKING PATH"
  20. 190 IF O>HI THEN PRINT:PRINT"OBJECT NOT BLOCKING PATH"
  21. 200 PRINT:PRINT"HEIGHT OF OBJECT IN FEET IS";HI
  22. 210 PRINT:PRINT"MAXIMUM HEIGHT OF OBJECT IN FEET IS";O
  23. 220 PRINT:INPUT"DO YOU WANT A HARD COPY(Y/N)";PR$
  24. 230 IF PR$="Y" THEN GOSUB 270
  25. 240 GOSUB 340
  26. 250 IF AN$="Y" THEN 60
  27. 260 END
  28. 270 LPRINT,:LPRINT,:LPRINT,"THE RATIO OF EFFECTIVE EARTH RADIUS TO TRUE EARTH RADIUS IS";K
  29. 275 LPRINT,:LPRINT,"MAXIMUM DISTANCE BETWEEN ANTENNAS IN MILES IS";MD
  30. 280 LPRINT,:LPRINT,"HEIGHT OF TRANSMITTING ANTENNA IN FEET IS";TA
  31. 290 LPRINT,:LPRINT,"HEIGHT OF RECIEVING ANTENNA IN FEET IS";RA
  32. 300 LPRINT,:LPRINT,"DISTANCE BETWEEN ANTENNAS IN MILES IS";LOSD
  33. 310 LPRINT,:LPRINT,"DISTANCE OF OBJECT TO TRANSMITTER ANTENNA IN MILES IS";DIS
  34. 320 LPRINT,:LPRINT,"HEIGHT OF OBJECT IN FEET IS";HI
  35. 330 LPRINT,:LPRINT,"MAXIMUM OBJECT HEIGHT IN FEET IS";O:RETURN
  36. 340 PRINT:INPUT"DO YOU WANT TO CONTINUE(Y/N)";AN$:RETURN
  37.